unit UPais;

interface
    uses
      UGenerica;
    type
      Pais = class (Generica)

protected
      nome : string;
      ddi  : integer;

public
  constructor Create;
  destructor Destroy;

  procedure setNome (vNome : string);
  procedure setDdi  (vDdi : integer);

  function getNome  : string;
  function getDdi   : integer;

end;

implementation

{ Pais }

constructor Pais.Create;
begin
    inherited;
end;

destructor Pais.Destroy;
begin

end;

function Pais.getDdi: integer;
begin
    Result := ddi;
end;

function Pais.getNome: string;
begin
    Result := nome;
end;

procedure Pais.setDdi(vDdi: integer);
begin
    ddi := vDdi;
end;

procedure Pais.setNome(vNome: string);
begin
    nome := vNome;
end;

end.

